From f83bd6860e9fe7769c06ec79a2638b9a7ba8d091 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 4 Feb 2001 20:46:39 +0000 Subject: [PATCH] (skeleton-internal-1): Always push the mark for @. --- lisp/skeleton.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/skeleton.el b/lisp/skeleton.el index 9274c3ca8c9..0733f065262 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el @@ -451,9 +451,8 @@ automatically, and you are prompted to fill in the variable parts."))) (or skeleton-modified (setq skeleton (cdr skeleton)))) ((eq element '@) - (if skeleton-point - (push (point) skeleton-positions) - (setq skeleton-point (point)))) + (push (point) skeleton-positions) + (unless skeleton-point (setq skeleton-point (point)))) ((eq 'quote (car-safe element)) (eval (nth 1 element))) ((or (stringp (car-safe element)) -- 2.30.2